!
!     3D local of the gauss points within the faces of 
!     the elements
!
!     xlocal8r: C3D8R element
!     xlocal8: C3D8 and C3D20R element
!     xlocal20: C3D20 element
!     xlocal4: C3D4 element
!     xlocal10: C3D10 element
!     xlocal6: C3D6 element
!     xlocal15: C3D15 element
!
      xlocal8r=reshape((/
     & 0.000000000000000D+0, 0.000000000000000D+0,-0.100000000000000D+1
     &, 0.000000000000000D+0, 0.000000000000000D+0, 0.100000000000000D+1
     &, 0.000000000000000D+0,-0.100000000000000D+1, 0.000000000000000D+0
     &, 0.100000000000000D+1, 0.000000000000000D+0, 0.000000000000000D+0
     &, 0.000000000000000D+0, 0.100000000000000D+1, 0.000000000000000D+0
     &,-0.100000000000000D+1, 0.000000000000000D+0,0.000000000000000D+0/
     &),(/3,1,6/))
!
      xlocal8=reshape((/
     &-0.577350269189626D+0, 0.577350269189626D+0,-0.100000000000000D+1
     &, 0.577350269189626D+0, 0.577350269189626D+0,-0.100000000000000D+1
     &,-0.577350269189626D+0,-0.577350269189626D+0,-0.100000000000000D+1
     &, 0.577350269189626D+0,-0.577350269189626D+0,-0.100000000000000D+1
     &,-0.577350269189626D+0,-0.577350269189626D+0, 0.100000000000000D+1
     &, 0.577350269189626D+0,-0.577350269189626D+0, 0.100000000000000D+1
     &,-0.577350269189626D+0, 0.577350269189626D+0, 0.100000000000000D+1
     &, 0.577350269189626D+0, 0.577350269189626D+0, 0.100000000000000D+1
     &,-0.577350269189626D+0,-0.100000000000000D+1,-0.577350269189626D+0
     &, 0.577350269189626D+0,-0.100000000000000D+1,-0.577350269189626D+0
     &,-0.577350269189626D+0,-0.100000000000000D+1, 0.577350269189626D+0
     &, 0.577350269189626D+0,-0.100000000000000D+1, 0.577350269189626D+0
     &, 0.100000000000000D+1,-0.577350269189626D+0,-0.577350269189626D+0
     &, 0.100000000000000D+1, 0.577350269189626D+0,-0.577350269189626D+0
     &, 0.100000000000000D+1,-0.577350269189626D+0, 0.577350269189626D+0
     &, 0.100000000000000D+1, 0.577350269189626D+0, 0.577350269189626D+0
     &, 0.577350269189626D+0, 0.100000000000000D+1,-0.577350269189626D+0
     &,-0.577350269189626D+0, 0.100000000000000D+1,-0.577350269189626D+0
     &, 0.577350269189626D+0, 0.100000000000000D+1, 0.577350269189626D+0
     &,-0.577350269189626D+0, 0.100000000000000D+1, 0.577350269189626D+0
     &,-0.100000000000000D+1, 0.577350269189626D+0,-0.577350269189626D+0
     &,-0.100000000000000D+1,-0.577350269189626D+0,-0.577350269189626D+0
     &,-0.100000000000000D+1, 0.577350269189626D+0, 0.577350269189626D+0
     &,-0.100000000000000D+1,-0.577350269189626D+0,0.577350269189626D+0/
     &),(/3,4,6/))
!
      xlocal20=reshape((/
     &-0.774596669241483D+0, 0.774596669241483D+0,-0.100000000000000D+1
     &, 0.000000000000000D+0, 0.774596669241483D+0,-0.100000000000000D+1
     &, 0.774596669241483D+0, 0.774596669241483D+0,-0.100000000000000D+1
     &,-0.774596669241483D+0, 0.000000000000000D+0,-0.100000000000000D+1
     &, 0.000000000000000D+0, 0.000000000000000D+0,-0.100000000000000D+1
     &, 0.774596669241483D+0, 0.000000000000000D+0,-0.100000000000000D+1
     &,-0.774596669241483D+0,-0.774596669241483D+0,-0.100000000000000D+1
     &, 0.000000000000000D+0,-0.774596669241483D+0,-0.100000000000000D+1
     &, 0.774596669241483D+0,-0.774596669241483D+0,-0.100000000000000D+1
     &,-0.774596669241483D+0,-0.774596669241483D+0, 0.100000000000000D+1
     &, 0.000000000000000D+0,-0.774596669241483D+0, 0.100000000000000D+1
     &, 0.774596669241483D+0,-0.774596669241483D+0, 0.100000000000000D+1
     &,-0.774596669241483D+0, 0.000000000000000D+0, 0.100000000000000D+1
     &, 0.000000000000000D+0, 0.000000000000000D+0, 0.100000000000000D+1
     &, 0.774596669241483D+0, 0.000000000000000D+0, 0.100000000000000D+1
     &,-0.774596669241483D+0, 0.774596669241483D+0, 0.100000000000000D+1
     &, 0.000000000000000D+0, 0.774596669241483D+0, 0.100000000000000D+1
     &, 0.774596669241483D+0, 0.774596669241483D+0, 0.100000000000000D+1
     &,-0.774596669241483D+0,-0.100000000000000D+1,-0.774596669241483D+0
     &, 0.000000000000000D+0,-0.100000000000000D+1,-0.774596669241483D+0
     &, 0.774596669241483D+0,-0.100000000000000D+1,-0.774596669241483D+0
     &,-0.774596669241483D+0,-0.100000000000000D+1, 0.000000000000000D+0
     &, 0.000000000000000D+0,-0.100000000000000D+1, 0.000000000000000D+0
     &, 0.774596669241483D+0,-0.100000000000000D+1, 0.000000000000000D+0
     &,-0.774596669241483D+0,-0.100000000000000D+1, 0.774596669241483D+0
     &, 0.000000000000000D+0,-0.100000000000000D+1, 0.774596669241483D+0
     &, 0.774596669241483D+0,-0.100000000000000D+1, 0.774596669241483D+0
     &, 0.100000000000000D+1,-0.774596669241483D+0,-0.774596669241483D+0
     &, 0.100000000000000D+1, 0.000000000000000D+0,-0.774596669241483D+0
     &, 0.100000000000000D+1, 0.774596669241483D+0,-0.774596669241483D+0
     &, 0.100000000000000D+1,-0.774596669241483D+0, 0.000000000000000D+0
     &, 0.100000000000000D+1, 0.000000000000000D+0, 0.000000000000000D+0
     &, 0.100000000000000D+1, 0.774596669241483D+0, 0.000000000000000D+0
     &, 0.100000000000000D+1,-0.774596669241483D+0, 0.774596669241483D+0
     &, 0.100000000000000D+1, 0.000000000000000D+0, 0.774596669241483D+0
     &, 0.100000000000000D+1, 0.774596669241483D+0, 0.774596669241483D+0
     &, 0.774596669241483D+0, 0.100000000000000D+1,-0.774596669241483D+0
     &, 0.000000000000000D+0, 0.100000000000000D+1,-0.774596669241483D+0
     &,-0.774596669241483D+0, 0.100000000000000D+1,-0.774596669241483D+0
     &, 0.774596669241483D+0, 0.100000000000000D+1, 0.000000000000000D+0
     &, 0.000000000000000D+0, 0.100000000000000D+1, 0.000000000000000D+0
     &,-0.774596669241483D+0, 0.100000000000000D+1, 0.000000000000000D+0
     &, 0.774596669241483D+0, 0.100000000000000D+1, 0.774596669241483D+0
     &, 0.000000000000000D+0, 0.100000000000000D+1, 0.774596669241483D+0
     &,-0.774596669241483D+0, 0.100000000000000D+1, 0.774596669241483D+0
     &,-0.100000000000000D+1, 0.774596669241483D+0,-0.774596669241483D+0
     &,-0.100000000000000D+1, 0.000000000000000D+0,-0.774596669241483D+0
     &,-0.100000000000000D+1,-0.774596669241483D+0,-0.774596669241483D+0
     &,-0.100000000000000D+1, 0.774596669241483D+0, 0.000000000000000D+0
     &,-0.100000000000000D+1, 0.000000000000000D+0, 0.000000000000000D+0
     &,-0.100000000000000D+1,-0.774596669241483D+0, 0.000000000000000D+0
     &,-0.100000000000000D+1, 0.774596669241483D+0, 0.774596669241483D+0
     &,-0.100000000000000D+1, 0.000000000000000D+0, 0.774596669241483D+0
     &,-0.100000000000000D+1,-0.774596669241483D+0,0.774596669241483D+0/
     &),(/3,9,6/))
!
      xlocal4=reshape((/
     & 0.333333333333333D+0, 0.333333333333333D+0, 0.000000000000000D+0
     &, 0.333333333333333D+0, 0.000000000000000D+0, 0.333333333333333D+0
     &, 0.333333333333334D+0, 0.333333333333333D+0, 0.333333333333333D+0
     &, 0.000000000000000D+0, 0.333333333333333D+0,0.333333333333333D+0/
     &),(/3,1,4/))
!
      xlocal10=reshape((/
     & 0.166666666666667D+0, 0.166666666666667D+0, 0.000000000000000D+0
     &, 0.166666666666667D+0, 0.666666666666667D+0, 0.000000000000000D+0
     &, 0.666666666666667D+0, 0.166666666666667D+0, 0.000000000000000D+0
     &, 0.166666666666667D+0, 0.000000000000000D+0, 0.166666666666667D+0
     &, 0.666666666666667D+0, 0.000000000000000D+0, 0.166666666666667D+0
     &, 0.166666666666667D+0, 0.000000000000000D+0, 0.666666666666667D+0
     &, 0.666666666666666D+0, 0.166666666666667D+0, 0.166666666666667D+0
     &, 0.166666666666666D+0, 0.666666666666667D+0, 0.166666666666667D+0
     &, 0.166666666666666D+0, 0.166666666666667D+0, 0.666666666666667D+0
     &, 0.000000000000000D+0, 0.166666666666667D+0, 0.166666666666667D+0
     &, 0.000000000000000D+0, 0.166666666666667D+0, 0.666666666666667D+0
     &, 0.000000000000000D+0, 0.666666666666667D+0,0.166666666666667D+0/
     &),(/3,3,4/))
!
      xlocal6=reshape((/
     & 0.333333333333333D+0, 0.333333333333333D+0,-0.100000000000000D+1
     &, 0.333333333333333D+0, 0.333333333333333D+0, 0.100000000000000D+1
     &, 0.500000000000000D+0, 0.000000000000000D+0, 0.000000000000000D+0
     &, 0.500000000000000D+0, 0.500000000000000D+0, 0.000000000000000D+0
     &, 0.000000000000000D+0, 0.500000000000000D+0,0.000000000000000D+0/
     &),(/3,1,5/))
!
      xlocal15=reshape((/
     & 0.166666666666667D+0, 0.166666666666667D+0,-0.100000000000000D+1
     &, 0.166666666666667D+0, 0.666666666666667D+0,-0.100000000000000D+1
     &, 0.666666666666667D+0, 0.166666666666667D+0,-0.100000000000000D+1
     &, 0.d0,0.d0,0.d0
     &, 0.166666666666667D+0, 0.166666666666667D+0, 0.100000000000000D+1
     &, 0.666666666666667D+0, 0.166666666666667D+0, 0.100000000000000D+1
     &, 0.166666666666667D+0, 0.666666666666667D+0, 0.100000000000000D+1
     &, 0.d0,0.d0,0.d0
     &, 0.211324865405187D+0, 0.000000000000000D+0,-0.577350269189626D+0
     &, 0.788675134594813D+0, 0.000000000000000D+0,-0.577350269189626D+0
     &, 0.211324865405187D+0, 0.000000000000000D+0, 0.577350269189626D+0
     &, 0.788675134594813D+0, 0.000000000000000D+0, 0.577350269189626D+0
     &, 0.788675134594813D+0, 0.211324865405187D+0,-0.577350269189626D+0
     &, 0.211324865405187D+0, 0.788675134594813D+0,-0.577350269189626D+0
     &, 0.788675134594813D+0, 0.211324865405187D+0, 0.577350269189626D+0
     &, 0.211324865405187D+0, 0.788675134594813D+0, 0.577350269189626D+0
     &, 0.000000000000000D+0, 0.211324865405187D+0, 0.577350269189626D+0
     &, 0.000000000000000D+0, 0.788675134594813D+0, 0.577350269189626D+0
     &, 0.000000000000000D+0, 0.211324865405187D+0,-0.577350269189626D+0
     &, 0.000000000000000D+0,0.788675134594813D+0,-0.577350269189626D+0/
     &),(/3,4,5/))
!
